home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00139.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.2 KB  |  43 lines
  1. on exitFrame
  2.   global plantcounter
  3.   plantcounter = plantcounter - 1
  4.   if plantcounter = 8 then
  5.     if (sprite(27).visible = 1) and (sprite(5).visible = 1) and (plantcounter >= 0) then
  6.       sprite(21).visible = 1
  7.       sprite(5).visible = 0
  8.       sprite(6).visible = 0
  9.       sprite(7).visible = 0
  10.       go("y7")
  11.     else
  12.       if (sprite(28).visible = 1) and (sprite(8).visible = 1) and (plantcounter >= 0) then
  13.         sprite(23).visible = 1
  14.         sprite(8).visible = 0
  15.         sprite(7).visible = 0
  16.         sprite(9).visible = 0
  17.         go("y7")
  18.       else
  19.         if (sprite(29).visible = 1) and (sprite(11).visible = 1) and (plantcounter >= 0) then
  20.           sprite(25).visible = 1
  21.           sprite(11).visible = 0
  22.           sprite(10).visible = 0
  23.           sprite(9).visible = 0
  24.           go("y7")
  25.         end if
  26.       end if
  27.     end if
  28.   else
  29.     if plantcounter < -5 then
  30.       if (sprite(21).visible = 1) or (sprite(23).visible = 1) or (sprite(25).visible = 1) then
  31.         go("rafend")
  32.       else
  33.         sprite(21).visible = 0
  34.         sprite(23).visible = 0
  35.         sprite(25).visible = 0
  36.       end if
  37.       sprite(27).visible = 0
  38.       sprite(28).visible = 0
  39.       sprite(29).visible = 0
  40.     end if
  41.   end if
  42. end
  43.